47 Van Buren Ave. 
Ravena, NY 12143 
7/15/84 


Robert Fabris 
3626 Morrie Dr. 

San Jose, GA 95127-9990 


Dear Bob: 


I am submitting the following programs to you for pub- 
lication in the Arcadian if you think they're suitable. I'm 
just a beginner at this, so this first one is just a simple 
modification of the "Phaser Phun" program by Dick Ainsworth, 
as found in the #6004 BASIC programming manual, page 72. 
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.PHASER PHUN 
.BY DICE AINSWORTH 
.MODIFIED BY 
.LANCE A. BRISSE 
.1/84 

T=/j L=0 ; B=0 ; M=3 
X=md. (60) -31 
Y=rnd( 20) 
clear 

X=X+rnd(7)-4 

Y=Y+rnd(7)-4 

box X , Y , 1 , 3 » 3 ; box K,Y,3,1,3 

Q&-*- J - ■ > ~ ^ : Ay * ~/ > 1 > ' > - 

if TR ( 1 )L=L+f 
N=1 

if K>X-3 if 1XX+3 N=1 / ; T=T+1 

if N=10 go sub 25 / 

for A=1 to N 

box K,/,l ,69,3 

MU="4" 

next A 

BC=7 ; FC=0 

if N=10 go sub 260 

NT =3 

if L>99 goto 270 
goto 10 

FC=7 ; BC=0; return 

print "_Y0UR_SC0RE: " , #M, T; NT=4; print "_CUT_CF", L; 
print "_SH0T3 FIRED! return 

clear ; print "THIS_GAME__IS__0VER , _THIS_GAME_IS_0VER 2 _IF 
Y 0 U_T 0 P L A Y_AG A I N ,_PLEASE_INSERT_AN0THER_$ . 25 ! 
print "FINALES CORE: " , T; print "0UT_0F" , L 
print " Y0UR_RANK : 

if T<21 print "DON'T GIVE UP_Y0UR_DAY_J0B 
if T> 2 0 if T<4l print "BEAN SHOOTER 
15 T240 if T<6l print "AMATEUR 




286. if T >60 if i<8l print "SHARPSHOOTER 

287. if T>8/ print "SUPERFANTASTICOLOSSALMAGNAGREAT ! ! ! 

288 ! if T>3 B=T 

289. print "HIGH_SCORE_TODAY" , 3 

290 . print "PULL_TRIGGER_T 0__TRY_AGAIN J 

300. if TR(1) goto 8 

301. if TR( 1 )=/ goto 300 

The computer moves the target. KN(l) moves the phaser 
base left or' right and the trigger fires it off. 

The second program is also a modification, of the "Side- 
swipe" program found in the ff6004 BASIC manual, page 9 , ; -t 
Mike Peace. 
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"T next A; 
for T=1 to 100; 


.SIDESWIPE 
.BY MIKE PEACE 
. MODIFIED BY 
.LANCE A. BRISEE 
. 2/84 

&( 22 ) 0 ; & ( l 6 )=72 ; 3 M =0 
BC=10; FC=191; &(2/)=9; goto $0 

&(18)=9; for \\-20p to 0 step -10; &(2l)=N; &(22)-N; &(23) 
=N: next IU 5=5+10; nrint "COLLISION!"; return 

& ( 22 ) = 255 > &(18)=N; next Nj &(22)=0; 

vr int " SfLSSki IPEftLL : 

clear ; NT^-l ; for A?* ^ 0 P; print ’* 

0=0; 5=0 

box -13 ,0,3 .38,1 ; box 13./, 3, 88,1 
print " _START COURSE" ; 

if^C> A+24_C=A-4 
if C<A-24_C=A+4 
if TR( 1 ) run 
W=W+1 ; if VJ>l/ goto 42/ 

R=rnd( 15) ; if R> 13 _Q=-rnd( 2) 

Z=A+rnd(22)-ll 
if S>5 goto 41/ 
if A<-36_Q=2 
if A>36_Q=-2; CX=-72 
if A<- 2__CX=A+1 7 
CX=A ; print " . " ; A=A+Q 

box A -13, -32, 3, 8,1 ; box A+13 » -32 ,3 1 8,1; if A»36jJ=-32* 
CX=-?2 

if A<-2- CK=A+17 
if A<-3^_Q=2 
box C 

C=C+KN ( 1 ) -r -25 

&(18)=13/+ABS(C) ; &(22)=15/ 


- 0 , 7 , 2 ; box 0,39,7,2, 2; box G, 42, 7,2,2 


box 0,32,3,7,1; box 0,31,7,2,1; box 0 , 34,7 , 2 , 1 ; box C 

32 , 1 , 1,2 

200. if PX(C,2?) gosub 30; goto 220 


AL 


:N l 


210. if PX ( C+3 > 3 2 ) +PX ( C -3 , 3 2 ) gosub 40 
220. next T; clear; V=100-S ; CX=-40; CY=40; print "PIN 
SCORE:"; print ,12, V 
230. & ( 22 ) =0 ; if H<V„H=V 

240. CX=-62 ; print ’'TODAY'S HIGH_SCOREs_ w 

241. GK=-60 ; print “W„SHOULD_BE DRIVING 

242. If V<1 1 print ” IN YOUR_LIVING R00M_0NLYl 

243. if Y>10 if Y<21_CX=-57; print "WITH_YOUR_EYES_OPE 

2/i/%^if Y)g gf If V<31 print " IN_A_DEM0 LIT 1 0N_DERBY 

245. if V>3P if V< 4 1 _C'j C = - 3 6 ; print " A J/fflEELC HAIR. — 

246 . if V> 40 ' if V< 5 1 _CX = - 2 6 ; print "A_H0RSE 

247. if V>50 if V<6l_CX=-20 ; print "AJTANK 

248. if V>60 if Y<?1 print " W ITH_T R A INING_WHEELS 

24q. if V>70 if V C 8 1 CX = - 4 0 ; print " ON_THE_HIGHWAYS *' 
250. if V >80 if Y<Ql_CX=-43; print "AS_AN_INSTRUCTOR ^ 
251 . if V > 90_CX = -3 0 ; print "A_RACING_CAR 

253. CY=-3,0; print "_PULL_TRIGGER_TO_TRY_AGAIN 
255. if TR(1) run 
goto 255 

box Z, - 32 , 3 , 7,1; box Z, -30,7,2,1; box Z, -33, 7,2,1 
E=rnd(3); goto 100 

box Z, - 23 , 9, 13.1; box Z, -3^, 5,5,1; box Z, - 36 , 3,1 
Z, -23, 3, 7, 2; box Z, -23 ,7, 3, 2 
422. ;i=rnd(3); E=E-2; goto 100 


croM.br a casse<irte with one 


260 , 

410, 

420, 


; **W=7 ; 
'3 box 


^^64 Jig dpder separa*- 
flr t has e- prograras'-rbcorded o;-'<acn side. 


Sincerely 1 









Lance A. Brisee 


cc 

ume/LAB 


